*Paper: Fiscal Rules, Corruption and Electoral Accountability - Replication Files

clear all
cap log close 
set more off


**Global files
global folder "/Users/tommasogiommoni/Dropbox/Determinants of corruption/Stability pact and corruption/Replication files JOP"


********************************************************************************
****----						Dataset open 					    	----**** 
********************************************************************************

use "$folder/Data/TableA2.dta", clear

**-- Global

global controls7 proportion_female_Elected_lag av_education_Elected_lag av_age_Elected_lag  victory_margin_lag term_limit_lag 
global controls7_int  c.proportion_female_Elected_lag##i.anno c.av_education_Elected_lag##i.anno c.av_age_Elected_lag##i.anno c.victory_margin_lag##i.anno  c.term_limit_lag##i.anno
global controls8_int  c.proportion_female_Elected_lag##i.anno c.av_age_Elected_lag##i.anno

**-- Panel dataset

xtset codcom anno
fvset base 2012 anno

********************************************************************************
****----						Analysis 					    		----**** 
********************************************************************************

****---- Analysis with province funds (columns 1-4) ----****

qui xtreg corruption_PC_sd T##S##c.funds_pr_post2013_PC_v2_ext P i.region_year $controls7_int if abs(P)<2500 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store tab10_1

qui xtreg current_exp_PC T##S##c.funds_pr_post2013_PC_v2_ext P i.region_year $controls7_int if abs(P)<2500 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store tab10_3

qui xtreg capital_ext_PC T##S##c.funds_pr_post2013_PC_v2_ext P i.region_year $controls7_int if abs(P)<2500 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store tab10_4

qui xtreg procurement_amount_PC T##S##c.funds_pr_post2013_PC_v2_ext P i.region_year $controls7_int if abs(P)<2500 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store tab10_5

****-- Heterogeneous analysis on FURs (column 5) ----****

qui xtreg corruption_PC_sd T##S##c.funds_pr_post2013_PC_v2_ext P i.region_year $controls7_int if abs(P)<2500 & FURs==1 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store reg11

****---- Heterogeneous analysis on FURs + Abruzzo and Molise (column 6) ----****

qui xtreg corruption_PC_sd T##S##c.funds_pr_post2013_PC_v2_ext P i.region_year $controls7_int if abs(P)<2500 & (FURs==1 | regione=="ABRUZZO" | regione=="MOLISE" ) & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store reg21

****---- Analysis on allocated funds (column 7) ----****

qui xtreg corruption_PC_sd T##S##c.funds_national_post2013_ext_PC P i.region_year $controls7_int if abs(P)<2500 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store tab10_1a

****---- Heterogeneous analysis on FURs dummy (column 8) ----****

qui xtreg corruption_PC_sd S##T##0.FURs P i.region_year $controls7_int if abs(P)<2500 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), fe cluster(codcom)
est store reg10_1b

****---- Tables ----****

esttab tab10_1 tab10_3 tab10_4 tab10_5 reg11 reg21 using "$folder/Tables/TableA2_columns_1_6.tex", compress keep(1.T#1.S 1.T#c.funds_pr_post2013_PC_v2_ext 1.S#c.funds_pr_post2013_PC_v2_ext 1.T#1.S#c.funds_pr_post2013_PC_v2_ext) se r2 staraux collabels(, none) ml(,none) cells(b(star fmt (%9.3f)) se(par)) star(* 0.10 ** 0.05 *** 0.01) replace
esttab tab10_1a reg10_1b using "$folder/Tables/TableA2_columns_7_8.tex", compress keep(1.T#1.S 1.T#c.funds_national_post2013_ext_PC 1.S#c.funds_national_post2013_ext_PC 1.T#1.S#c.funds_national_post2013_ext_PC 1.S#0.FURs  1.T#0.FURs  1.S#1.T#0.FURs) se r2 staraux collabels(, none) ml(,none) cells(b(star fmt (%9.3f)) se(par)) star(* 0.10 ** 0.05 *** 0.01) replace

